2300 REM VERLIER ROUTINE
2305 IFVE<>18THEN2400
2310 IFGE(G1)<>-1THENPRINT"ICH HABE DAS NICHT !"
2320 IFGE(G1)=-1THENGE(G1)=ZN:PRINT"OK."
2400 GOTO1000